This is one way of doing it very easyly:
sphere { 0,1 no_shadow pigment { rgb <1,0,0> } }
sphere { 0,.999 pigment { rgbf <1,0,0,.9> } }
and so on.
--
main(i,_){for(_?--i,main(i+2,"FhhQHFIJD|FQTITFN]zRFHhhTBFHhhTBFysdB"[i]
):5;i&&_>1;printf("%s",_-70?_&1?"[]":" ":(_=0,"\n")),_/=2);} /*- Warp -*/
